﻿Public Class SetBotonesPersonalzadosDialog 


    Private Sub SetBotonesPersonalzadosDialog_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Try
            ' Productos.EditValue = Nothing
            If My.Forms.SetBotonesPersonalizados.TabControl.SelectedTabPage.Name = "Tab1" Then
                'TODO: This line of code loads data into the 'DbFireAndIceDataSet.itemventa' table. You can move, or remove it, as needed.
                Me.ItemventaTableAdapter.Fill(Me.DbFireAndIceDataSet.itemventa)
            Else
                'Me.ItemespecialdetalleTableAdapter.Fill(Me.DbFireAndIceDataSet.itemespecialdetalle)
                ItemventaTableAdapter.FillByTipoProducto(Me.DbFireAndIceDataSet.itemventa, 7, 8)
            End If

        Catch ex As Exception
            LogSGS.RegistrarLogSinEnviarCorreo(My.Resources.StringGlobal.prgVinicio, "Error los productos en el LOAD del formulario", ex, My.Resources.StringGlobal.mdlGeneral, Name, sender.GetType.FullName.ToString)
        End Try
       
    End Sub

    Private Sub SimpleButton2_Click(sender As System.Object, e As System.EventArgs) Handles SimpleButton2.Click
        Me.Close()
    End Sub

    Private Sub SimpleButton1_Click(sender As System.Object, e As System.EventArgs) Handles SimpleButton1.Click
        BotonesPersonalizadosSGS.ActualizarBoton(CInt(idboton.Text), Productos.EditValue, Color.Color.ToArgb, Comentario.Text)
        Me.Close()
    End Sub
End Class